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LIBSLEN ; Ret l h of j -SEP- :12: - 
(hg ee eturn length of string 16-SEP-1984 00:12:30 VAX/VMS Macro v04-00 Page 0 
(2) 49 HISTORY ; Detail it Hi 
¢} 63 DEELARATIO ; etailed Current Edit History 
(4) 9 LIBSLEN = Return Length of string as INTEGER*4 value 
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LIBSLEN ; Return Length of strin 16-SEP-1984 12: AX/VMS Macro V04-00 Page 1. a 
1-006 : : b-SEP-1986 41:08:25 ELTBRTL. SRCILIBLEN. MAR; 1 7 a) ' 
- TITLE Lies. en ; Return Length of string 
-IDENT /1-006/ ; File: LIBLEN.MAR Edit: RKR1006 


AA RRRBARBARAAAAALASASALALESAA EERE SALES SESE ESSER RRR ERS E REESE SRSA ESE ESE 


COPYRIGHT (c) 1978, 1980, 1982, 1984 B 
DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED 
ACCORDANCE WITH TERM CH C H_THE 


pe sejeoleleleloeloleo) 


po jololelololololo) 


Ss 


be 
4; 
bat 
*® ® 
0 : ie * 
0 8 ;* . 
0000 9 ;* * 
0 8 10 ;* © 
0 11 3* & 
Bp 12 ;* ONLY IN C WITH THE OF ICENSE D WIT * 
000 15 ;* INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS ARE OR AN THE * 
0000 14 ;* COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
0000 15 ;* SON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
444 16 3* TRANSFERRED. * | 
3 ® | 
0000 18 ;* THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE * 
0000 19 ;* AN SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT * 
44 $9 3* CORPORATION. * | 
* e 
00C0 2 3* DIGITAL ASSUMES NO RESPONSIBILITY FOR THE USE OR RELIABILITY OF ITS * 
0000 § 7* SOFTWARE ON EQUIPMENT WHICH IS NOT SUPPLIED BY DIGITAL. * 
0000 4 jt + 
0000 5 se * 
0000 6 FERRARA AAA A ARETE EERE AAA AAAARETAARAAREARERERARERE Ree Kee eee ee | 
0000 27 : 
0000 28 : oe 
0000 9 : FACILITY: General Utility Library 
0000 0 i+ 
0000 1 : ABSTRACT: 
0000 ¢ i 3 ‘ | 
0000 3 : Return length of a string as an INTEGER*4 value. 
0000 34 ; 
0000 35 "Si 
0000 6 : 
0000 7 : VERSION: 0 
0000 8 : 
0000 39 : HISTORY: 
0000 40 ; 
0000 41 : AUTHOR: F 
0000 $ 3 Thomas N. Hastings, 6-Aug-77: Version 0 
0000 43; 
448 44 : MODIFIED BY: 
00 45; 
444 46 : 
0000 47; 


2 
LIBSLEN ; Return Length of strin 16-SEP-1984 : AX/VMS Macro V04-00 Page 
1-006 HISTORY ; Detailed an Edit History green 1obe $9 08:35 EO TORTL. SRCILIGLEN. MAR: 1 ’ by 
He $8 -SBTTL HISTORY ; Detailed Current Edit History 
0 1 
44 ¢ ; Edit History for Version 0 
0000 4; 9-3 = return word TNH 16-SEP-77 
000 5 ; 1-001 = Update version number and copyright date, and correct 
0000 56 ; the comment of the INDENT Line about the file 
0000 57 ; The last edit number of version 7 was 4, JBS 1e-NOV-78 
0000 28 ! 1-002 = Add". to PSECT directives JBS 21-DEC-78 
0000 9 ; 1-003 = Returh current Length of VS class a by SBL 22-Dec-1980 
4 60 ; 1-004 - Eanence to recognize additional classes of Spring descriptors 
000 61 ; by invoking ANALYZE_SDESC_R3 to est eacs Lengit h and address 
0000 66 ; of ist data byte from descriptor. RKR 22-MAY-1 
0000 65 ; 1-005 - Add special-case code to process string descriptors, that 
0000 64 ; “read Like fixed strin Gosce peers RKR T-1981. 
0000 65 ; 1-006 = Redirect a s_from LIBSANALYZE_SDESC_R3 to 
0000 66 ; LIBSANALYZE spesc C_R2. Remove R3 from entry mask. 
0000 67 ; RKR 18-NOV-T98 
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0000000000009 000000 00000000 


NOs 


Dd 3 
of string yaw - 13 ¢ 90 13: 39 AX/VMS Macro Vv04-00 


Sete Se Se Se Se 


LIBRTL.SRCIJLIBLEN.MAR; 1 


-SBTTL DECLARATIONS 
INCLUDE FILES: NONE 


EXTERNAL SYMBOLS: 
i; Explicit externals only 


; Extract length and addy of 


-DSABL GBL 
~-EXTRN LIBSANALYZE_SDESC_R2 
: Ist data byte of string 


MACROS: 
SOSCDEF : fields within a descriptor 


PSECT DECLARATIONS: 
-PSECT _LIBSCODE PIC,SHR,LONG,EXE,NOWRT 


: EQUATED SYMBOLS: NONE 


OWN STORAGE: 


-r 


: s 2 
n Length of strin 16-SEP-1984 


LIBSLEN ; Retur 0:12: AX/VMS Macro V04-00 Page 4 
1-006 LIBSLEN = Return Lengthof string as IN 6-SEP-1984 OB :35 UTORTL. SRESLIBLEN MAR: 1 . (4) 
33 Hj -SBTTL LIBSLEN - Return Length of string as INTEGER*4 value ‘ 
101 ;++ : 
Boe 19¢ 3 FUNCTIONAL DESCRIPTION: ‘ 
0000 103 : Return the Length of the string argument as an INTEGER*4 value. ‘ 
0 106 ; CALLING SEQUENCE: ; 
2099 197 ; String_l L LIBSLEN (stri dx) 
: ring_len.wlu.v = string.rt.dx : 
0000 4 ; = . ; 
$808 111 ; INPUT PARAMETERS: : 
0000 Me ; ‘ 
00000004 444 BF STRING = 4 ; String passed by descriptor. ‘ 
0000 115 ; IMPLICIT INPUTS: | . 
0000 118 3 NONE : 
0000 117; 
0000 118 ; OUTPUT PARAMETERS: 
0000 119; NONE 
0000 120; 
0000 121 ; IMPLICIT OUTPUTS: 
0000 $6 3 NONE 
0000 123; 
0000 124 ; FUNCTION VALUE: | 
0000 125; | 
0000 126; STRING_LEN.wlu.v The current Length of the string 
0000 127 ; argument. 
0000 128; 
0000 \¢2 ; SIDE EFFECTS: 
0000 130; NONE 
0000 131; 
0000 136 ;-- 
0000 «(13 
0000 134 
0000 135 
0004 0000 136 -ENTRY LIBSLEN, “M<R2> 3; entry mask 
50 04 AC DO 0002 137 MOVL STRING(AP), RO ; address of string descriptor 
02 03 A0 91 0006 £138 CMPB DSCSB_CLASS(RO), #DSCSK_CLASS_D ; read Like fixed ? 
1A QOOA 139 BGTRU 1$ 3; no 
50 04 6C 3¢ Q00C 140 MOVZWL @STRINGC(AP), RO ; length to ouput register 
Bit ae 
00000000 ' GF 16 0011 128 1$: JSB G“LIBSANALYZE_SDESC_R2 ; Extract: length=>R1, addr->R2 
50 51 3€ QO17 144 MOVZWL R11, RO ; length to ouput register 
04 OO1A 145 ET 
001B 146 - END : End of module LIBSLEN 


oe 

LIBSLEN ; Return length of stri 16-SEP-1984 00:12: 
Symbol table : . ete 6- ath 00:58:38 
DSC$B_CLASS = 0000000 
DSC$K-CLASS_D = ities 
LIBSANALYZE-SDESC_R2 eerereee = =X 00 
LIBSLEN 0000000 RG 02 
STRING = 00000004 

¢ owen eceerocaeseen + 

: Psect synopsis ! 
PSECT name Al location PSECT No. Attributes 
, SS 00000000 < 0.) 00 ¢ O.) NOPIC USR CON ABS LCL 

S$ 00000000 <( 9.) 84 ( 1.) NOPIC USR CON ABS LCL 
_LIBSCODE Q000001B < 27.) @¢ 28.3 PIC USR CON REL LCL 
boewr anna nee ne ec omowren ne oo4+ 
H Performance indicators ! 

Phase Page faults CPU Time Elapsed Time 
Initialization — 30 00:00:00.04 00:00:01.12 
Command processing 113 00:00:00.29 BF Op oR “0S 
Pass 1 131 eS SE 00:00:08.7 
Symbol table sort 0 00:00:00.1 Bo +20 200-68 
Pass 2 39 00:00:00.31 00:00:02.39 
Symbol table output ¢ 00:00:00.01 00:00:00.01 
Psect synopsis output 00:00:00.01 00:00:00.01 
Cross-reference output 0 00:00:00.00 00:00:00.00 
Assembler run totals 320 00:00:01.92 00:00:16.88 


The working set Limit was 1050 peges- 

7650 bytes (15 pages) of virtual memory were used to buffer the intermediate code. 

There were 10 pages of symbol table space allocated to hold 134 non-local and 1 local symbols. 
146 source Lines were read in Pass 1, producing 13 object records in Pass 2. 

8 pages of virtual memory were used to define 7 macros. 


+ 
! Macro Library statistics ! 
oe + 


Macro library name Macros defined 
~$255$DUA28: CSYSLIBISTARLET.MLB;2 4 
190 GETS were required to define 4 macros. 


There were no errors, warnings or information messages. 


AX/VMS Macro V04-00 


Page 
LIBRTL.SRCIJLIBLEN.MAR; 1 


NOSHR NOEXE NORD NOWRT NOVEC BYTE 
NOSHR EXE RD 


WRT NOVEC BYTE 


SHR EXE RD NOWRT NOVEC LONG 


MACRO/ENABLE=SUPPRESSION/DI SABLE=(GLOBAL , TRACEBACK) /LIS=LIS$:LIBLEN/OBJ=OBJ$:LIBLEN MSRC$:LIBLEN/UPDATE=(ENH$:LIBLEN) 
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